﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class TipostFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As TipostBE
        Dim tmpTipost As TipostBE = New TipostBE()
        Try
            With tmpTipost
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .IdTipo = convertDTFromDb.ConvertShort(dr.Item("IdTipo"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                .Tara = convertDTFromDb.ConvertString(dr.Item("Tara"))
            End With
            Return tmpTipost
        Catch ex As Exception
            Throw
        Finally
            tmpTipost = Nothing
        End Try
    End Function
End Class
